home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Text / WASTE / WASTE 1.1.2 Distribution / Pseudo-UPI for THINK Pascal / Events.p < prev    next >
Encoding:
Text File  |  1995-10-12  |  1.4 KB  |  59 lines  |  [TEXT/PJMM]
  1. unit Events;
  2.  
  3. { Pascal Interface to the Macintosh Libraries }
  4.  
  5. { Copyright © Apple Computer Inc. }
  6. { All Rights Reserved }
  7.  
  8. { Adapted for use with THINK Pascal 4.0.x by Marco Piovanelli }
  9.  
  10. interface
  11.     uses
  12.         Types;
  13.  
  14.     type
  15.         EventKind = UInt16;
  16.         EventMask = UInt16;
  17.         EventModifiers = UInt16;
  18.  
  19.     type
  20.         GetNextEventFilterProcPtr = ProcPtr;  { PROCEDURE GetNextEventFilter(VAR theEvent: EventRecord; VAR result: BOOLEAN); }
  21.         GetNextEventFilterUPP = UniversalProcPtr;
  22.  
  23.     const
  24.         uppGetNextEventFilterProcInfo = $000000BF; { SPECIAL_CASE_PROCINFO( kSpecialCaseGNEFilterProc ) }
  25.  
  26.     function NewGetNextEventFilterProc (userRoutine: GetNextEventFilterProcPtr): GetNextEventFilterUPP;
  27.     inline
  28.         $2E9F;
  29.  
  30.     procedure CallGetNextEventFilterProc (var theEvent: EventRecord;
  31.                                     var result: BOOLEAN;
  32.                                     userRoutine: GetNextEventFilterUPP);
  33. {To be implemented:  Glue to move parameters according to special case conventions.}
  34.  
  35.     type
  36.         GNEFilterUPP = GetNextEventFilterUPP;
  37.  
  38.         FKEYProcPtr = ProcPtr;        { PROCEDURE FKEY; }
  39.         FKEYUPP = UniversalProcPtr;
  40.  
  41.     const
  42.         uppFKEYProcInfo = $00000000;  { PROCEDURE ; }
  43.  
  44.     function NewFKEYProc (userRoutine: FKEYProcPtr): FKEYUPP;
  45.     inline
  46.         $2E9F;
  47.  
  48.     procedure CallFKEYProc (userRoutine: FKEYUPP);
  49.     inline
  50.         $205F, $4E90;
  51.  
  52.     function KeyTranslate (transData: univ Ptr;
  53.                                     keycode: INTEGER;
  54.                                     var state: LONGINT): LONGINT;
  55.     inline
  56.         $A9C3;
  57.  
  58. implementation
  59. end.